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1-1. INTRODUCTION 

This technical description covers the use of FORTRAN, ALGOL, and ASSEMBLER programming language calls for 
the HP 7210A Digital Plotter operating in a DOS or RTE environment. POSITION, LETTERING, STATUS, and 
CLEAR calls are included in the following binary (relocatable) tapes: 

DOS III* Complete HP 7210A Plotter Driver (DVRIO) Binary, 07210-16001 REV A. 

DOS III* Minimum HP 7210A Plotter Driver (DVRIO) Binary, 07210-16002 REV A. 

RTE Complete HP 7210A Plotter Driver (DVRIO) Binary, 72008-60001 REV A. 

RTE Minimum HP 7210A Plotter Driver (DVRIO) Binary, 72009-60001 REV A. 

1-2. DOS AND RTE DRIVER COMMANDS 

FORTRAN, ALGOL 

The FORTRAN and ALGOL usage by means of binary WRITE statements is identical for the BCS MINIMUM, the 
DOS MINIMUM, and the RTE MINIMUM drivers and is that usage described for the BCS MINIMUM driver in the 
HP 17210 interface kit manual. 

The FORTRAN and ALGOL usage by means of binary and formatted WRITE statements is identical for the BCS 
COMPLETE, the DOS COMPLETE, and the RTE COMPLETE drivers and is that usage described for the BCS 
COMPLETE driver in the HP 17210 interface kit manual. 

ASSEMBLER - EXEC CALLS 

All ASSEMBLER usage of the DOS MINIMUM, the DOS COMPLETE, the RTE MINIMUM, and the RTE COMPLETE 
drivers is through EXEC calls and is distinct from the ASSEMBLER usage for the BCS MINIMUM and the BCS 
COMPLETE drivers. The EXEC call usage under DOS and RTE is shown in the following paragraphs. 

1-3. POSITION CALLS 

Position call usage is identical for MINIMUM and COMPLETE drivers. 

ICODE must have the integer value 2 to specify a write. ICNWD must have bit 6=1 to specify binary transmission. 
For RTE, bits 7 through 15 = 0. For DOS; bits 7 through 1 1 = 0, bit 12 is the optional "WAIT" bit controlling 
return of control from the driver, and bits 13 through 15 = 0. IBFLN must give the buffer length for the points to 
be transmitted. It can have either a positive integer value giving the number of words or a negative integer value 
giving the number of characters. If m is the number of points to be transmitted, then: 

IBFLN = 2 * m + 3 for words 

IBFLN = -4 * m - 6 for characters 



* These DOS III drivers are to be used in both the DOS-M and DOS-Ill operating systems. 
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The buffer format is as follows: 



Wordl 


Not used 






Word 2 


Pen control IPC 




IPC > down, IPC=0 points, IPC < up 


Words 


Mode control IMC 




IMC > absolute IMC < relative 


Word 4 


1st X component 




Required 


Words 


1st Y component 


Required 


Word 6 


Next X component 


> 


Optional 


Word? 


Next Y component 


' 


Optional 









The values in the buffer are unchanged on return from call. 

Use of the POSITION call in ASSEMBLER EXEC, FORTRAN EXEC, and ALGOL EXEC is shown below. 
ASSEMBLER EXEC 
EXT EXEC 



JSB EXEC 
DEF * + 5 
DEF ICODE 
DEF ICNWD 
DEF IBUFR 
DEF IBFLN 
<Return Point> 

ICODE DEC 2 
ICNWD OCT 000 lUU 
IBFLN DEC N (-2*N) 
IBUFR DEC 
IPC DEC 1(0,-1) 
IMC DEC 1 (-1) 
BSS N-3 



Gives address of return point 
Gives address of request code 
Gives address of control word 
Gives address of 1st word of BUFFER 
Gives address of BUFFER LENGTH 



Defines request code 

Defines control word 

Defines BUFFER length 

Defines 1st word of BUFFER (not used) 

Defines pen control word of BUFFER 

Defines mode control word of BUFFER 

Provides space for point coordinate 



FORTRAN EXEC 



(The use of WRITE statements as an alternative is strongly recommended). 
DIMENSION IBUFR (N) 



IBUFR (2) = IPC 
IBUFR (3) = IMC 
IBUFR(4) = IX(1) 
IBUFR(5) = IY(1) 
IBUFR (6) = IX(2) 
IBUFR (7) = IY(2) 



Sets pen control value 

Sets mode control value 

Sets 1st X coordinate 

Sets 1st Y coordinate 

Defines optional additional coordinate 

Defines optional additional coordinate 
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IBUFR(2*(M+1)) = IX(M) 
IBUFR (2* (M+l)+l) = IY(M) 
IBUFLN = N (-2*N) 
ICODE = 2 
ICNWD=1UUB 



Defines optional additional coordinate value 
Defines optional additional coordinate value 
Sets buffer length 
Sets request code 
Sets control word 



CALL EXEC (ICODE, ICNWD, IBUFR, IBFLN) 

ALGOL EXEC (the use of WRITE statements as an alternative is strongly recommended). 

HPAL,L, "PROGN," [Loader specs] 
BEGIN 

PROCEDURE EXECP (ECODE, ECNWD, EBUFR, EBFLN); 
INTEGER ECODE, ECNWD, EBUFR, EBFLN; CODE; 
INTEGER ICODE, ICNWD, IBFLN; IPC, IMC, I, N, M; 
INTEGER ARRAY IBUFR (1 :203); allocates buffer 
INTEGER ARRAY IX (1 : 100); allocates X component storage 
INTEGER ARRAY lY (1: 100); allocates Y component storage 



ICODE ^2; 
ICNWD ^@1UU; 
IBUFR(2) ^ IPC; 
IBUFR(3) ^ IMC; 
IBUFR(4)^IX(1); 
IBUFR(5)^IY(1); 
IBUFR(6) <- IX(2); 
IBUFR(7) ^ IY(2); 



Defines request code 

Defines control word 

Defines pen control buffer word 

Defines mode control buffer word 

Defines 1 st X component 

Defines 1st Y component 

Defines optional additional coordinate value 

Defines optional additional coordinate value 



IBUFR (2*(M+1)) <~ IX(M); 
IBUFR (2*(M+1)+1) ^ IY(M); 
IBFLN <- N; 



Defines optional additional coordinate value 
Defines optional additional coordinate value 
(-2*N) defines buffer length 



EXEC (ICODE, ICNWD, IBUFR(l), IBFLN); 



ENDS 

HPAL, P, L, "EXECP", [Loader specs] 

PROCEDURE EXECP (ECODE, ECNWD, EBUFR, EBFLN); 

INTEGER ECODE, ECNWD, EBUFR, EBFLN; 

CODE 

ENDS 
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LETTERING CALLS 



Use of the LETTERING call in the ASSEMBLER EXEC, FORTRAN EXEC, and ALGOL EXEC is shown below. 
Also included is a summary of buffer formats. 

As with the BCS driver, every line of lettering is followed by a simulated carriage return line feed not contained in 
the buffer. A buffer containing a size spec but no text will generate a carriage return and line feed and a buffer with 
a text ending in a back arrow (<-) will not generate a terminal carriage return line feed. 

ASSEMBLER EXEC 

EXT EXEC 



JSB EXEC 
DEF * + 5 
DEF ICODE 
DEF ICNWD 
DEF IBUFR 
DEF IBFLN 
<Return Point> 



Gives address of return point 
Gives address of request code 
Gives address of control word 
Gives address of 1st word of Buffer 
Gives address of Buffer length 



Binary size spec usage 
ICODE DEC 2 
ICNWD OCTOOOOUU 
IBFLN DECN(-2*N) 

IBUFR DEC-1 
IXX DEC 
IXY DEC 
lYX DEC 
lYY DEC 

ASCN-5, 

ASCII size spec usage 
ICODE DEC 2 
ICNWD OCTOOOOUU 
IBFLN DECN(-2*N) 



Defines request code 
Defines control word 
Defines buffer length 

Value of 177777 defines binary size 

Value of size parameter 

Value of size parameter 

Value of size parameter 

Value of size parameter 

Text 



Defines request code 
Defines control word 
Defines buffer length 



IBUFR ASC 10, AAAAABBBBBCCCCCDDDDD Size spec. 
ASCN-IO, Text 



Old size spec usage 
ICODE DEC 2 
ICNWD OCTOOIOUU 
IBFLN DECN(-2*N) 

IBUFR 



STEXT ASCN-5, 

Where STEXT is the symbol for location IBUFR + 4. 



Defines request code 
Defines control word 
Defines buffer length 

5 words containing the reformatting size spec 
used by the previous lettering call 



Text 
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FORTRAN EXEC (the use of WRITE statements as an alternative is strongly recommended). 



DIMENSION IBUFR(N), lAT (80), IAS (10) 
FFFF FORMAT (40A2) 

READ (LU,FFFF) (lAS(I), I = 1,10) 
READ (LU,FFFF) (lAT(I), I = 1,40) 

a. Binary size usage 

IBUFR(1) = -1 
IBUFR(2) = IXX 
IBUFR(3) = IXY 
IBUFR(4) = lYX 
IBUFR(5) = lYY 
DOTTTTI=l,m 
TTTT IBUFR(I + 5) = ICA(I) 

IBFLN = m + 5(2*m-10) 
ICODE = 2 
ICNWD = LUP 

CALL EXEC (ICODE, ICNWD, IBUFR, IBFLN) 

b. ASCII size usage 



Same as ASCII size spec 
Same as text to be lettered 



Sets 1 St buffer word for binary size spec 
Sets size spec 
Sets size spec 
Sets size spec 
Sets size spec 

Places 2*m characters of text in buffer 
Sets buffer length 
Sets request code 
Sets control word 



DOSSSSI = 1,10 
SSSS IBUFR(I) = lAS(I) 

DOTTTTI=l,m 
TTTT IBUFR (I + 1 0) = lAT(I) 

IBFLN = m+10(-2*m-20) 
ICODE = 2 
ICNWD = LUP 



Sets size specification in buffer 
Sets 2m characters of text in buffer 



Sets buffer length 
Sets request code 
Sets control word 



c. OLD size usage 

DO TTTT I = 1 m 
TTTT IBUFR(I+5)=IAT(I) 

IBFLN = m + 5(-2*m-'10) 
ICODE = 2 
ICNWD = 00 lOUUB 



Sets 2m characters of text in buffer 



Sets buffer length 
Sets request code 
Sets control word 



ALGOL EXEC (the use of WRITE statements as an alternative is strongly recommended). 

HPAL,L, "PROGN" [Loader specs] 

BEGIN 

PROCEDURE EXECC (ECODE, ECNWD, EBUFR, EBFLN); 

INTEGER ECODE, ECNWD, EBUFR, EBFLN; CODE; 

INTEGER ICODE, ICNWD, IBFLN, IXX, IXY, lYX, lYY, I, M, LUP 

INTEGER ARRAY IBUFR (1 :60); allocate buffer 

INTEGER ARRAY IAS (1 : 1 0); allocate storage for ASCII size 

INTEGER ARRAY lAT (1 ^40); allocate storage for text 
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Binary size usage 

IBUFR(1)^-1; 
IBUFR(2) ^ IXX; 
IBUFR(3)^IXY; 
IBUFR(4) ^ lYX; 
IBUFR(5) <- lYY; 

For I ^ 1 STEP 1 UNTIL M DO 
IBUFR (I + 5) = lAT(I); 

IC0DE^2; 
ICNWD ^ LUP; 

IBFLN^m + 5;(-2*m-10) 

EXECC (ICODE, ICNWD, IBUFR(l), IBFLN); 

ASCII size usage 

For I ^ 1 STEP 1 UNTIL 10 DO 

IBUFR(I) <- lAS(I); 

For I ^ 1 STEP 1 UNTIL M DO 

IBUFR (I+10)^1AT(I); 

ICODE ^2; 

ICNWD ^ LUP; 

IBFLN ^ m + 10; (-2*m~20) 

EXECC (ICODE, ICNWD, IBUFR(l), IBFLN); 

OLD size usage 

For I ^ 1 STEP 1 UNTIL M DO 
IBUFR (I + 5) ^ lAT(I); 
ICODE ^ 2; 
ICNWD ^@0010UU; 
IBUFLN ^ m + 5 (-2*m-10) 

EXECC (ICODE, ICNWD, IBUFR(l), IBFLN); 



Sets 1st buffer word to indicate binary size 
Sets size spec 
Sets size spec 
Sets size spec 
Sets size spec 

Set text in buffer 
Set text in buffer 

Set request code 
Set control word 
Set buffer length 



Set ASCII size spec 
Set ASCII size spec 
Set text in buffer 
Set text in buffer 
Set request code 
Set control word 
Set buffer length 



Set text in buffer 
Set text in buffer 
Set request code 
Set control word 
Set buffer length 



ENDS 

HPAL, P, L, "EXECC, <Loader specs> 

PROCEDURE EXECC (ECODE, ECNWD, EBUFR, EBFLN); 

INTEGER ECODE, ECNWD, EBUFR, EBFLN; 

CODE 

ENDS 

Position call usage is only valid for complete drivers. In addition to the binary size and ASCII size usages which are 
essentially identical to the usages described for the BCS driver, there is an "OLD" size usage which is unique to the 
DOS and RTE drivers. 

The reason for this is that upon return from a lettering call to the DOS or RTE driver the first five Nvords of the 
buffer have been altered to contain the internal representation of the size spec. When "OLD" usage is specified the 
first five words of the buffer must contain an internal size specification generated by a previous lettering call and 
the text must start in word 6 of the buffer. 
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SUMMARY OF BUFFER FORMATS 

a. Binary size 



Wordl 
Word 2 
Words 
Word 4 
Words 
Word 6 



-1 



(1777778) 

Size specs represented as signed binary integers 

Size specs represented as signed binary integers 

Size specs represented as signed binary integers 

Size specs represented as signed binary integers 

Text 



;il size 


Wordl 


Word 2 


Words 


Word 4 


Words 


Word 6 


Word? 


Words 


Word 9 


Word 10 


Word 11 


Word 12 


Word 13 


Word 14 



20 ASCII characters consisting of four each 
5-character 15 format ASCII fields specifying 
four signed size specifications. 



Text 
Text 
Text 
Text 



c. OLD size 

Word 1 
Word 2 
Words 
Word 4 
Word 5 

d. OTHER VALUES 

IC0DE = 2 (0000028) 
IC^WD = LU(0000UU8) 

= 0010UU8 

e. The control word bits are assigned as follows 

(1) ForRTE: 

Bits 15-10 must be set to 
Bit 9 = 



An internal size specification generated by or 
obtained from the buffer for a previous binary 
or ASCII lettering call. 



To specify a write request the logical unit 
number of plotter for BINARY size and ASCII 
size lettering calls 
For "OLD" size lettering calls 



For Binary and ASCII size 
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(2) 



Bit 9 = 1 
Bits 8-7 = 
Bit 6 
Bits 5-0 

For DOS: 
Bits 15-14 
Bit 13 

Bits 12-10 
Bit 9 

Bit 8-7 
Bit 6 
Bits 5-0 



For "OLD" size usage 

Must be set = 1 to specify a lettering call 
Give plotter logical unit number 



Must = 

If 1 specifies without unit 

If specifies with wait 

Must = 

If Binary or ASCII size 

If 1 "OLD" size 

Must = 

Must = to specify lettering call 

Give plotter logical unit number 



f. IBFLN = 



Total buffer length as a positive 
integer to specify a word count as 
a negative integer to specify a 
character count. 



a. for BINARY size includes 5 words or 10 characters 
for size spec 

b. for ASCII size includes 10 words or 20 characters 
for size specs 

c. for OLD size includes 5 words or 10 characters 
for size specs; 



NOTE 

To produce lettered text containing an odd number of characters, 
the character count option must be used. 
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STATUS CALLS 



Use of the STATUS call in ASSEMBLER EXEC, FORTRAN EXEC, and ALGOL EXEC is shown below. Also 
included is a summary of values returned. 

Status requests are processed by the operating system rather than the driver, but some aspects of the values returned 
are influenced by the driver. 

ASSEMBLER EXEC 

EXT EXEC 



JSB EXEC 
DEF *+5 
DEF ICODE 
DEF ICNWD 
DEF IRWDl 
DEF IRWD2 
<Return Point> 



Gives address of request code 
Gives address of control word 
Gives address for 1st word return 
Gives address for 2nd word return 



ICODE DEC 13 
ICNWD DEC LUP 
IRWDl BSSl 
IRWD2 BSSl 



Defines request code 
Defines control word 
1st status word returned here 
2nd status word returned here 
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FORTRAN EXEC 

ICODE =13 Defines request code 

ICNWD = LUP Defines control word 

CALL EXEC (ICODE, ICNWD, IRWDl, IRWD2) 

ALGOL EXEC 

HPAL, L, "PROGN", <Loader specs> 

BEGIN 

PROCEDURE EXECS (ECODE, ECNWD, ERWDl, ERWD2); 

INTEGER ECODE, ECNWD, ERWDl, ERWD2; CODE; 

INTEGER ICODE, ICNWD, IRWDl, IRWD2, LUP; 

ICODE -^13; Sets request code 

ICNWD <- LUP; Sets control word 

EXEC (ICODE, ICNWD, IRWDl, IRWD2); 



ENDS 

HPAL, P, L, "EXECS", <Loader specs> 

PROCEDURE EXECS (ECODE, ECNWD, ERWDl, ERWD2); 

INTEGER ECODE, ECNWD, ERWDl, ERWD2; 

CODE 

ENDS 

SUMMARY OF VALUES RETURNED 

The values returned by DOS and RTE are different and are as follows: 

a. DOS 

(IRWDl) = Status Word 
(IRWD2) = Transmission Log 

The status word is EQT ENTRY 4 and bits 15-14 are availability: 

00 = available, 01 = DOWN, and 10 = busy. 1 1 = waiting for DMA and does not apply to plotter. 

Bits 13-8 are TYPE CODE = 001000 for plotter 

Bits 7-5 = for plotter 

Bit 4—0 have same significance as in BCS driver 

The transmission log will contain a positive character on word count. Either a word or character count can occur 
for both position calls and lettering calls. The size specification is included for lettering calls, but simulated carriage 
returns and line feeds are not. The first unused word is included for position calls. 
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RTE 

(IRWDl) = Word 5 of EQT ENTRY 
(IRWD2) = Word 4 of EQT ENTRY 

Word 5 of RTE's EQT is identical to the status word of DOS. 

Word 4 of RTE's EQT has the following contents 
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Bit 15 


DMA usage 


Bit 14 


BUFFERING 


Bits 13-12 


Not used 


Bit 11 




Bits 10-9 


Not used 


Bits 8-6 


Unit number 


Bits 15-0 




CLEAR CALL 





= for plotter 

= for no buffering; = 1 to specify buffer 

= 1 if device times out. This will usually be result of a 
hardware failure if values provided by driver are 
unaltered. 

Does not apply to plotter. 

Select code for this logical unit number. 



The CLEAR call is appHcable only in DOS-Ill. Use of the CLEAR call in ASSEMBLER, FORTRAN, and ALGOL is 
shown below. 

ASSEMBLER 

EXT EXEC 



JSB EXEC 

DEF *+3 

DEF ICODE Address of request code 

DEF ICNWD Address of control word 



ICODE DEC 3 Specifies control request 

ICNWD DEC LU Logical unit of plotter 



FORTRAN 



CALLEXEC(3,LU) 

Where LU is the logical unit number of the plotter. 



MO 



ALGOL 



HPAL, L, "PROGC", <Loader Specs> 

BEGIN 

PROCEDURE EXEC3(EC0DE,ECNWD); 

INTEGER ECODE,ECNWD;CODE; 

INTEGER ICODE,ICNWD,LU; 



ICODE^S; 
ICNWD^LU; 



Se<s request code for control 
Sets control word to logical unit 



EXEC3(IC0DE,ICNWD); 

ENDS 

HPAL, P, L, "EXECS", <Loader Specs> 

PROCEDURE EXEC3{EC0DE,ECNWD); 

INTEGER ECODE,ECNWD: 

CODE 

ENDS 
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